با استفاده از این روش شما می توانید با استفاده موقعیت قرار گیری موس بر روی کامپوننت مورد نظر متن و دیگر خصوصیات آن را بدست بیاورید

procedure TForm1.PopupMenu1Popup(Sender: T);
var
   Cur : TPoint;
begin
  
      GetCursorPos(Cur);
   label2.caption:=FindControl(windowfrompoint( Cur )).Name;
   if FindControl(windowfrompoint( Cur )).ClassType =TEdit then
      label1.caption:=TEdit(FindControl(windowfrompoint( Cur ))).Text;
   if FindControl(windowfrompoint( Cur )).ClassType =TDBEdit then
      label1.caption:=TDBEdit(FindControl(windowfrompoint( Cur ))).Field.AsString;
end

برگرفته شده از سایت دنیای برنامه نویسی دلفی(http://mt85.blogfa.com)

Speed test